problem s QuickReportom
Otázka od: raistlin majer
14. 10. 2002 23:18
Mam takyto problem:
Potrebujem vytlacit velmi clenity quickreport..
Potrebujem naraz pristupovat k velkemu poctu napr. labelov (pripadne inych
objektov),
mam 30 componentov label a potrebujem priradit kazdemu inu hodnotu caption.
Ako na to? Nemozem pouzit cyklus na priradzovanie captionov, lebo kazdy
komponent je jedninecny...
Prosim ak niekto vie ako pristupovat hromadne ku komponentom rovankeho typu nex
pomoze...
SJ
ZN: surne
________
Prva Pomoc, Srandicky, Hry, Hudba, Zoznamenie, Erotika, ...
http://www.post.sk/forum/
Odpovedá: Ing. Pavel Žilinec
15. 10. 2002 5:32
Kdyz je kazdy komponent jedinecny, tak pak moc nerozumim tomu, co
chces, pze stejne budes muset diky jedinecnosti vyjmenovat ty
komponenty a priradit jim jedinecne captiony.
Muzes ale kazdemu komponentu priradit Tag a podle nej se pak
rozhodovat, napr. (pisu to z hlavy, tak promin chyby) :
for i := 0 to RepDetail.Controls.Count - 1 do
if (RepDetail.Controls[i] is TQRLabel) and RepDetail.Controls[i].Tag > 0 then
TQRLabel(RepDetail.Controls[i]).Caption :=
VratRetezec(RepDetail.Controls[i].Tag);
Kde VratRetezec muzes mit funkci prirazujici lokalizovane retezce nebo
to muzes nahradit polem retezcu, ...
--------
ing. Pavel Zilinec
MailTo:zilinec@email.cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
rm> Mam takyto problem:
rm> Potrebujem vytlacit velmi clenity quickreport..
rm> Potrebujem naraz pristupovat k velkemu poctu napr. labelov (pripadne inych
objektov),
rm> mam 30 componentov label a potrebujem priradit kazdemu inu hodnotu caption.
rm> Ako na to? Nemozem pouzit cyklus na priradzovanie captionov, lebo kazdy
komponent je jedninecny...
rm> Prosim ak niekto vie ako pristupovat hromadne ku komponentom rovankeho typu
nex pomoze...
rm> SJ
Odpovedá: CERMAK
15. 10. 2002 8:49
Ahoj
cyklus pouzit muzes v pripade ze komponenty, ktere logicky patri k sobe,
rozumne oznacis. Napr.
qrlNazev1,... qrlNazev<n>
pak funguje
for I:=1 to n do
begin
qrl:=FindComponent('qrlNazev'+IntToStr(i)) as TQRLabel;
//ted uz si muzu zpristupnit caption nebo jinou property, pro jistotu
je dobre testovat //zda qrl neni nil
Jaromir Cermak
-----Original Message-----
From: raistlin majer [mailto:raistlin1@post.sk]
Sent: Monday, October 14, 2002 8:25 PM
To: delphi-l@clexpert.cz
Subject: problem s QuickReportom
Mam takyto problem:
Potrebujem vytlacit velmi clenity quickreport..
Potrebujem naraz pristupovat k velkemu poctu napr. labelov (pripadne inych
objektov),
mam 30 componentov label a potrebujem priradit kazdemu inu hodnotu caption.
Ako na to? Nemozem pouzit cyklus na priradzovanie captionov, lebo kazdy
komponent je jedninecny...
Prosim ak niekto vie ako pristupovat hromadne ku komponentom rovankeho typu
nex pomoze...
SJ
ZN: surne
________
Prva Pomoc, Srandicky, Hry, Hudba, Zoznamenie, Erotika, ...
http://www.post.sk/forum/
---
Poíchozí zpráva neobsahuje viry.
Zkontrolováno antivirovým systémem AVG (http://www.grisoft.cz).
Verze: 6.0.401 / Virová báze: 226 - datum vydání: 9.10.2002